﻿Public Class AbmTabsAdicionales
        Inherits System.Web.UI.Page
        Public masterpage As AbmBase

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Campos de filtado (si esta vacio los incluye a todos)
        Dim cf As String = "cd_prueba, nu_prueba, nm_prueba, nm_programa, de_obs, de_prueba, de_resultado_esperado, de_resultado_obtenido"
        'Columnas de grilla
        Dim cg As String = "cd_prueba, fe_prueba, nu_prueba, nm_prueba, nm_programa"

        masterpage = CType(Page.Master, AbmBase) 'instancia iniciada de la clase de masterpage

        'Asigna los atributos del AbmBase
        masterpage.lblTitulo = "Formulario ABM Tabs"

        'Alias de columnas (si esta vacio pone los nombres de los campos)
        Dim ac As New Hashtable
        ac.Add("cd_prueba", "Código")
        ac.Add("fe_prueba", "Fecha")
        ac.Add("nu_prueba", "Nº Prueba")
        ac.Add("nm_prueba", "Detalle")
        ac.Add("nm_programa", "Funcionalidad")
        ac.Add("de_obs", "Observaciones")
        ac.Add("de_prueba", "Pruebas")
        ac.Add("de_resultado_esperado", "Resultado")
        ac.Add("de_resultado_obtenido", "Acciones")

        'Cantidad de tabs a utilizar
        Dim tp As Integer = 4
        masterpage.TabsAdicionales = tp
        'Filtros de busqueda
        masterpage.FiltrosBusqueda = cf
        'Alias de los campos 
        masterpage.AliasCampos = ac
        'Columnas de la grilla
        masterpage.ColumnasGrilla = cg

        'Nombre de los tabs a utilizar
        masterpage.lblTabs = "Observaciones"
        masterpage.lblTabs1 = "Pruebas"
        masterpage.lblTabs2 = "Resultado"
        masterpage.lblTabs3 = "Acciones"
        'masterpage.lblTabs4 = "Tab 5"
        'masterpage.lblTabs5 = "Tab 6"
        'masterpage.lblTabs6 = "Tab 7"
        'masterpage.lblTabs7 = "Tab 8"

        'Instancia del objeto de reglas del negocio
        Dim obr As New BR.Web.Utilitarios.Abms.TabsAdicionales
        'Inicialización de la página Abmbase enlazada al objeto de negocios
        masterpage.InicializarPagina(obr)

        End Sub
        Protected Overloads Sub OnPreInit() Handles Me.PreInit
            If Not Session("Tema") Is Nothing Then
                'Asignacion de tema
                Page.Theme = Session("Tema").ToString
            End If
        End Sub
    End Class